home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 April / Macworld (1999-04).dmg / Serious Software / GrooveMaker demo / GrooveMaker Demo / Media / MenuSong.dxr / 00037.ls < prev    next >
Encoding:
Text File  |  1998-07-27  |  574 b   |  24 lines
  1. on exitFrame
  2.   go(the frame)
  3. end
  4.  
  5. on enterFrame
  6.   global gSong, gPath, gYesQuit, grooveSaveList, seqSaveList, mixSaveList, synthSaveList
  7.   if the visible of window "Help" then
  8.     moveHelp()
  9.   else
  10.     if gYesQuit then
  11.       IKSynthStop()
  12.       IKStop()
  13.       IKDispose()
  14.       closeXLib(gPath & "Xtras:IKTrack")
  15.       closeXLib(gPath & "Xtras:FileIOXtraFat")
  16.       closeXLib(gPath & "Xtras:FileUtil")
  17.       put EMPTY into field "fieldMasterVol"
  18.       put EMPTY into field "fieldBpm"
  19.       put EMPTY into field "fieldDescription"
  20.       go(1, "exit")
  21.     end if
  22.   end if
  23. end
  24.